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- Cluster Event Message Routines 


DECLARATIONS 
CNXSCONFIG_ CHANGE = Log configuration change 
SEND_JBCMSG = Send message to Job Controller 
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: "FACILITY: EXECUTIVE, CLUSTER MANAGEMENT 


; ABSTRACT: 
: This module produces operator and console messages when the status 
of the cluster changes. A primitive version of the code was 
carved out of the CNXMAN.MAR module. 


; ENVIRONMENT: VAX/VMS 
; AUTHOR: David W. Thiel CREATION DATE: 30-Aug-1983 
; MODIFIED BY: 


: v03-004 wmMc0001 Wayne Cardoza 17-Jul-1984 
: Add a quorum disk Yritelocked error. 

: V03-003 pwT0214 David W. Thiel 09-Apr-1984 
: Add and delete some messages. Change defaults. 


v03-002 DWT0198 David W. Thiel 23-Mar-1983 
Add messages for quorum adjustment. 


v03-001 purors David W. Thiel 23-Sep-1983 
Remove debuggin Rae that forces all messages to be 
areaqeass to OPAO. Stop outputting messages about 
sending or receiving status and when CSB is deleted. 
Use correc nore ° eryett on to fill 
CLUMBX$B_ tH VERSI Add MEMREG_MSG message 
to complément REQSOIN “ase” message. 
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INCLUDE FILES: 


SCLUBDEF 3; CLUster Block offsets 
SCLUMBXDEF ; Cluster ~ Hana message format 
SCSBDEF ; CSB Offse 
SIPLDEF 3 Pt definitions 
SMSGDEF ; Mailbox pessege type codes 
SSBDEF ; SB Offse 

> MACROS 

: «MACRO CNX_MSG MSGCODE,BRDFLG,LCLFLG,CLSFLG, TEXT 

~SHOW BINARY 


N 
“IF NOT_BLANK  MSGCODE 
“WORD “CLUMBX$K_'MSGCODE 
IF _FALS 
. WORD 
-ENDC 

$S$XX= FLG_M_ERROR 
.IRP ~ X,BROFLG 

S$$xx= $$Sxx ! FLG_M_'X 
.ENDR 

BYTE  $$$Xx 

$$$xx= 06 

.IRP — X, CLSFLG 

$$$XX= $35xx ! FLG_M_'x 


scares SSSXX 
IRP X,LCLFLG 
M_*x 


$$syv= $$$vy ! FLG_M_' 

.ENDR 

é SSSYY ! S$SSXX 
AS TEXTa@ 
-NOSHOW BINARY 
-ENDM = CNX_MSG 


Cluster-wide OPCOM broadcast flag 


OPCOM message flags 
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; EQUATED SYMBOLS: 


; Mailbox message code 

; OPAO broadcas flags byte 

; OPCOM cluster message flags byte 
; OPCOM local message flags byte 

; OPAO broadcast message text 


i 
a 
BZr-owon 
Aorwo 

“noo 
nam 

" 

WMO 

Sete Ge eee 


_NONMEMBER= Do if local node is not a VAXcluster membe 
NONAE EMBERS laFLG. v _NONMEMBER 


Vv 

“A 

~v-Q ; Do if local cluster has a dynamic quorum 
“A-Q QUORUM @FLG_V_QUORUM 

“N-NOa ; Do if local cluster does not have a dynami 
“V 


=NOQUORUR= @FLG_V_NOQUORUM 
Do after failing to put message in OPCOM m 
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FLG_M_ERROR= 1@FLG_V_ERROR 
FLG_M_ALWAYS= FLG_M-NONMEMBER ! FLG_M_ QUORUM ! FLG_M_NOQUORUM 
FLG_M_MEMBER= FLG_M_QUORUM ! FLG_M_ROOUORUM 
BELL = 7 ; ASCII code for bell 
CR = “XD 3; ASCII code for carriage return 
LF = “XA ; ASCII code for Line feed 
: OWN STORAGE: 
-PSECT $$$060,LONG ; R/O Data PSECT 
; Common message prefix 
PREFIX: ASCII <BELL><LF>’"ZCNXMAN, ‘' ; Text to prefix each message 
PREF IX_SIZ= .~ PREFIX ; Length of prefix text 
; Message control blocks 
CSB_MSG:: CNX_MSG ST_NEWSYS, <NONMEMBER,NOQUORUM,QUORUM>, , <MEMBER>, <Discove 
-WORD CLUMBXS$K_ST_NEWSYS 
-BYTE  $$$XX 
-BYTE  S$$$XX ; Cluster-wide OPCOM broadcast flag 
-BYTE  $$$YY ! SS$SXX ; OPCOM message flags 
eASCIC a@Discovered systema 
ACCPT_MSG:: 
CNCT_ASG:: CNX_MSG ST_CNX, <NONMEMBER,NOQUORUM,QUORUM>, , <MEMBER>, <Establishe 
‘ CLUMBX$K_ST_CNX 
-BYTE  $$$XX 
-BYTE S$S$SXX ; Cluster-wide OPCOM broadcast flag 
-BYTE S$SSYY ! SSSXX ; OPCOM message flags 
-ASCIC @Established connection to systema 


REACCPT_MSG:: 
RECNCT_ASG: : 
~ WORD 
“BYTE 
“BYTE 
“BYTE 
SASCIC 


CNXERROR_MSG: : 
» WORD 


TE 
BYTE 
BYTE 


CNX_MSG ST_RECNX, <NONMEMBER ,NOQUORUM,QUORUM>, , <MEMBER>, <Re-estab 
SLURGXSK_ST_RECNX 


$$XX ; Cluster-wide OPCOM broadcast flag 
SSSYY ! SSSXX ; OPCOM message flags 
@Re-established connection to systema 


CNX_MSG ST_LOSTCNX, <NONMEMBER, NOQUORUM,QUORUM>, , <MEMBER>, <Lost 
SLURBXSK_ST_LOSTCNK 


ster-wide OPCOM broadcast flag 
OM message flags 


oc 


$SSXX ; Cl 
SSSYY ! SSSXX ; OP 


nicks, 
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-ASCIC @Lost connection to systema 
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CNX she ST_TIMCNX, <NONMEMBER ,NOQUORUM,QUORUM>, , <MEMBER>, <Timed-o 
gL UneX K_ST_TIMCNX 
SSS$XX ; Cluster-wide OPCOM broadcast flag 


SSSYY ! SSSXX ; OPCOM message flags 
aTimed-out lost connection to systema 


ort + SNONMEMBER ,NOQUORUM,QUORUM>, , , <Deleting CSB for system> 


$SXX 
SSSXX ; 
SSSYY | S$SSX 


. gererneree OPCOM broadcast flag 
aDdeleting CSB for system 


l 
i PCOM message flags 


on 


CNX_MSG ST_INIFORM, <ALWAYS>, <ALWAYS>, , <Proposing formation of a 
CLURGXSK_ST_INIFORA 


SSSXX ; Cluster-wide OPCOM broadcast flag 
SSSYY ! SSSXX ; OPCOM message flags 
@Proposing formation of a VAXclustera 


NX_MSG , <ALWAYS>, , , <Sending VAXcluster membership request to sy 


SSSXX 
SSSXX ; Cluster-wide OPCOM broadcast flag 
SSSYY ! SSS$XX ; OPCOM message flags 

aSending VAXcluster membership request to systema 


CNX_MSG ST_MEMREQ, <NONMEMBER,NOQUORUM,QUORUM>, , <ALWAYS>, <Receive 
CLUABXSK_ ST_MEMREG 


SSS$XX ; Cluster-wide OPCOM broadcast flag 
SSSYY ! SSSXX ; OPCOM message flags 
@Received VAXcluster membership request from systema 


CNX_MSG ST_INIRECNFIG, <NONMEMBER ,NOQUORUM,QUORUM>, , <ALWAYS>, <Pro 
CLUABXSK_ST_INIRECNF IG 


SSSXX ; Cluster-wide OPCOM broadcast flag 
SSSYY ! SSSXX ; OPCOM message flags 
aProposing reconfiguration of the VAXclustera 
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133 QUORUM_MSG:: 
156 


160 FAILOVER_MSG:: 
WORD 


BYTE 
BYTE 


-BYTE 
-ASCIC 


161 ADDNODE_MSG: : 
.WORD 
“BYTE 
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CNX_MSG ST GUORYA. <NONMEMBER ,NOQUORUM,QUORUM>, , <ALWAYS>, - 
<Propos | modification of quorum or quorum disk membership> 


° 
CL UNBXSK.ST_ UOR 
SSSXX ; Cluster-wide OPCOM broadcast fla 
SSSYY ! SSSXX 3 message flags . 

aProposing modification of quorum or quorum disk membershipa 


CNX_MSG ST_INIADD, <NONMEMBER,NOQUORUM,QUORUM>, , <ALWAYS>, <Proposi 
CLUBBXSK, ST_INIADD 
S$SS$XX ; Cluster-wide OPCOM broadcast flag 
SSSYY |! SSSXX 3; OPCOM message flags 

aProposing addition of systema 


CNX_MSG ST_ABORT, <NONMEMBER,NOQUORUM,QUORUM>, , <ALWAYS>, <Aborting 
CLUABXSK_ ST_ABORT 


Cluster-wide OPCOM broadcast flag 
OPCOM message flags 
transition 


$SSXX ; 
SSSYY ! SSSXX ; 
@Aborting VAXcluster state 


CNX_MSG ST_COMPLETE, <NONMEMBER,NOQUORUM,QUORUM>, , <ALWAYS>, <Compl 
CLUABXSK_ST_COMPLETE 

SSS$XX ; Cluster-wide OPCOM broadcast flag 
SSSYY ! SSSXX 3; OPCOM message flags 
aCompleting VAXcluster state transitiona 


CNX_MSG ST_DROPNODE, <NONMEMBER ,NOQUORUM,QUORUM>, <ALWAYS>, . <Remov 
CLUABXSK_ST_DROPNODE 
SSS$XX ; Cluster-wide OPCOM broadcast flag 
SSSYY ! SSSXX ; OPCOM message flags 

@Removed from VAXcluster systema 


CNX_MSG ST_ADD 


<NONMEMBER,NOQUORUM,QUORUM>, , <ALWAYS>, <Now a VAXc 
CLUABXSK_ ST_ADD 
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-BYT 
-ASCIC 


162 SNDSTS_MSG:: 
oW RD 


165 
166 


67 
68 


169 QDCON_MSG:: 


- WORD 
-BYTE 


LOSEQUORUM_MSG: : 


GAINQUORUM_MSG: : 
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seexy ; Cluster-wide OPCOM broadcast flag 
SSYY ! $S$Xx ; OPCOM message flags 
@Now a VAXcluster member -- systema 


ae + « « » SSending status to system> 
$SXX 


SSSXX Cl 
SSSYY ! SSSXX ;_OP 


yeteruree OPCOM broadcast flag 
aSending status to systema 


OM message flags 


NX_MSG , , , , “Received status from system> 


SSSXX 
S$SS$XX ; Cluster-wide OPCOM broadcast flag 
SSSYY |! SS$SXX ; OPCOM message flags 

@Received status from systema 


CNX_MSG ST_FORNCLUS, <NONMEMBER,NOQUORUM,QUORUM>, , <ALWAYS>, <Detec 
CLUABKSK. ST_FORNCLUS 


SSSXX ; Cluster-wide OPCOM broadcast flag 
SSSYY ! SS$SXX ; OPCOM message flags 
QDetected member of another VAXcluster -- systema 


CNX_MSG ST_NOQUORUM, <ALWAYS>, <ALWAYS>, , <Quorum lost, blocking ac 
CLURBXSK_ST_NOQUORUM é 


lLuster-wide OPCOM broadcast flag 
ryan noesege flags 
vity 


SSSXX H 
SSSYY ! SSSXX 3 
@Quorum lost, blocking act 


CNX_MSG ST_INQUORUM, <ALWAYS>, <ALWAYS>, , <Quorum regained, resumin 
SLUREXSK_ST_INQUORUA 


SSSXX ; Cluster-wide OPCOM broadcast flag 
SSSYY ! SSSXX 3; OPCOM message flags 
@Quorum regained, resuming activitya 


CNX_MSG ST_GAIND 


ISK, <NONMEMBER,NOQUORUM,QUORUM>, , <MEMBER>, <Estab 
CLURBXSK. ST_GAINDI SK 
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-ASCIC 


174 QDINVDAT MSG: : 


175 QDFORCLUS 


23 $G ST_DI 
D CLUMBXSK_ST_DI 
SSSXX 
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+4 4 3; Cluster-wide OPCOM broadcast flag 
SSSYY | SSSXX j, OPCOM message flags 
@Established ‘connection’ to quorum diska 


ayer 


CNX ope By LOSTDISK, <NONMEMBER ,NOQUORUM,QUORUM>, , <MEMBER>, <Lost 


gL Un _ST_LOSTDISK 

SSSXX 3; Cluster-wide OPCOM broadcast fla 
SSSYY | SSEXX . ; OPCOM message flags , 
@Lost “‘connection’’ to quorum diska 


7: CNX MSG ST DISKRDERR, <NONMEMBER ,NOQUORUM,QUORUM>, , <MEMBER>, <Erro 


CLUBBXSK_ ST_DISKRDERR 


$SS$XX 3; Cluster-wide OPCOM broadcast flag 
SS$YY ! SSSXX ; OPCOM message flags 
@Error reading quorum disk 


ste CNX _ MSG ST_DISKWRERR, <NONMEMBER,NOQUORUM,QUORUM>, , <MEMBER>, <Erro 


CLUMBXSK_ST_DISKWRERR 


LU 
SSSXX 
SSSXX 3; Cluster-wide OPCOM broadcast flag 
SSSYY ! SSSXX ; OPCOM message flags 
@Error writing quorum diska 


CNX_M T_DISKWRERR, <NONMEMBER ,NOQUORUM,QUORUM>, , <MEMBER>, <Quo 
SKWRERR 


SSS$XX ; Cluster-wide OPCOM broadcast flag 
SSSYY ! SSSXX ; OPCOM message flags 
@Quorum disk write-lockeda 


CNX_MSG ST_DISKINVDAT, <NONMEMBER,NOQUORUM,QUORUM>, , <MEMBER>, <Rea 
SLUABXSK_ ST_DISKINVDAF 

SSSXX 3; Cluster-wide OPCOM broadcast flag 

SSSYY ! SSSXX ; OPCOM message flags 

@Read invalid data from quorum diska 


T_FORNDISK, <NONMEMBER ,NOQUORUM,QUORUM>, , <ALWAYS>, <Detec 
ST_FORNDISK 


:; Cluster-wide OPCOM broadcast flag 
; OPCOM message flags 
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vou DECLARATIONS ° "er 1386 80: %3 8 YeySLOR. SRCICLUMESSAG.MAR; 1 ° 3) 
# be é $3 7 4 $ § 7% : , rhe -ASCIC @Detected another VAXcluster via the quorum diska 
Ga ARR Oe eg a ee 
$) $ 7 6F 1 ° rg 
46D 176 QDTIMOUT_MSG:: CNX marty ST_DISKTIMEOUT, <NONMEMBER,NOQUORUM,QUORUM>, , <MEMBER>, <Ti 
0017 46D “WORD cL UAB BXSk_ST_DISKTIMEOUT 
C 420 “BYTE $$$XX ; Cluster-wide OPCOM broadcast flag 
‘ 47 BYTE Hh ! $$$xx + OPCOM messeee. flags 
9 20 rn 6 of 38 64 %9 6p 29 5 y tie <ASCIC a@Timed-out 0 operation to quorum disk 
os 0 $8 75 5 6F é ? 0 of 7 636 
gs 
rts ; LOSTMSG_MSG:: CNX_MSG ST_LOSTMSG, <ALWAYS>, <ALWAYS>, , <Lost VAXcluster message> 
499 MARBAAARAAAAASLALALASALALSASALESELELE RELEASE SELES EEE EE ERE EEE EERE EERE CES 


NOTE: The following assumptions are in effect for this entire module. 
| Su coecencenncncereceqensnenenccecqqqnncneeeceeeqenenonenseeseneeqqqecees 


ASSUME IPLS$_SYNCH EQ IPLS$_SCS 
ASSUME IPLS"SYNCH EQ IPLS_TIMER 


-PSECT $$$100,LONG 3; PSECT for code 
DEFAULT DISPLACEMENT ,WORD 


1 
iB 

180 

: 1 

499 1 : 
499 = 184 
if 

is 

0060 188 
189 

190 


ae 
ono 
ono 


ene ee 


CLUMESSAG Event Message Routines -SEP-1984 00:23:47 VAX/VMS Macro v04-00 Pa 1 
vou 500 CHANGE - tog configuration ch $78 Pa} 984 2:60:39 SYSLOA.SRCJCLUMESSAG.MAR; 1 - 13) 
! § . ~SBTTL CNXSCONFIG_CHANGE = Log configuration change 
4 3 FUNCTIONAL DESCRIPTION: 
136 : This routine records cluster configuration chenges. 
19 : Currently it simply broadcasts a message to OPAQ. 
199 : INPUT PARAMETERS: 
1: RO Address of .ASCIC message string 
$ : R Address of CSB or 
4 : OUTPUT PARAMETERS: 
6 ; NONE 
8 ; SIDE EFFECTS: 
19 : ALL registers (other than RO) are preserved. 
1 o 
18 CNXSCONFIG_ CHANGE: : 
OSFE 8F 14 PUSHR #*M<R1,R2,R3,R4,R5,R6,R7.RB,R9I> ; Save registers 
58 15 MOVL RO,R8 3; Message control block address 
59 16 MOVL R5,R9 3; Remote node CSB address 
54 00000000" GF 1 MOVL  G*ELUSGL_CLUB,R4 : Address of CLUB 
7 8 CLRL R7 3; Status flags mask 
04 1 AA 00 1 BBS #CLUBSV_CLUSTER, - 3; Branch if cluster member 
0 CLUBSL_FLAGS(R45, 108 
Oc 57 01 1 BBCS #FLG_V_NONMEMBER,R7,30$ ; Set non-member flag and branch 
04 10 AG 1C : 10$ BBS #CLUBSV_QUORUM, - :; Branch if quorum is present 
4 CLUBSL_FLAGS(R4) ,20$ 
03 57 03 5 BBCS  #FLG_VZNOQUORUM,R7,30$ ; Set quorum absent flag and branch 
57 9% ; eps: BISL2 #FLG_M_QUORUM,R7 ; Set quorum present flag 
04 A8 = : 0$:  BITB R7,MB_B_LCL(RS) : Send OPCOM a message? 
93 BNEQ 40$ ; Branch to send OPCOM a message 
00 , BRW 100$ ; Skip message to OPCOM 
5E 00000048 8F ; 40$ SUBL2 #<CLUMBXSK_LENGTH+3>8°C3,SP ; Allocate mailbox message buffer 
4 PUSH ; Save CLUB address 
04 AE 0048 BF O00 6E 0 4 MOVE #0,(SP),#0, - : Zero allocated space 
5 #CLUMBX$K_LENGTH, 4 (SP) 
10 $ POPR #*A<R4> ; Restore CLUB address 
6— 0059 8F MOVW MSGS cues - ; Message ID 
§ CLUMBR$W NSGFYPE (SP) 
02 AE 68 MOVW MB_W CODE(R8), - ; Message subtype 
40 CLOMBX$wW_SUBTYPE (SP) 
04 AE 01 41 MOVB #CLUMBXSK_DS_ VERSION, = ; Message structure version 
4g CLUMBXSB BS VERSION(SP) 
03 AB 57 4 BITB R7,MB_B_CLSTRB) ; Broadcast to cluster? 
4 44 BEQL § : Branch if no 
05 AE 1 45 MOVB #CLUMBXSM_BRDCST, - : Set broadcast bit 
46 CLUMBXS8 FLAGS (SP) 
06 AE 48 8F 47 50$: MOVZBW #CLUMBXSR My - ; Message length 
48 CLUMBX$W_CENGTH( SP) 


mM 6 
Message Routines 16-SEP-1984 00:23:47 VAX/VMS Macro V04-00 e 1 
GE - tog configuration ch $78 Po} 984 88:60:39 USYSLOA. SREICLUMESSAG.MAR: 1 hd (4) 
MOVL CLUBS, Loch bs0CR4) AS ; Local CSB address 
BBC #CLUBST_CLUSTER ; Branch if not a cluster member 


CLUBSL FLAGS(RGS 608 
MOVL £58 Logs D(R3), = 3 Store local node CSID 


a 
o 


voen000 cnxst 


53. 10 A 
05 1C AS (00 PY 


08 AE 4C AS 00 


L_CSID_L(SP) 
5 68 A3 60$ MOVL CSBSL_S this ag 3; Address of local node system block 
OC AE 3 A6 «06 8 mMOovC3 CLUnBSS SYSTEMID_L, - ; Store local system id ; 
PeTReRaS  RTETCRTD L CSP) 
14 AE 44046 10 28 MOVC3 UMBXS$S_NODENAME_L, = ; Store local system name 
SBST_NODERAME(R6), = 
CLUMBX T_NODENAME _L (SP) 
59 B TSTL R 3; Remote node specified? 
1A 1 BEQL 80$ 3; Branch if not and skip remote node data 
05 60 Ad «6—01-tié€dS*& BBC #CSBSV_MEMBER, - 3; Branch if not a cluster member 
CSBSL_STATUS(A9), 708 
24 AE 4C€C AD DO MOVL CSBSL te thy ~ ; Store remote node CSID 
56 68 AI OD 70$ MOVL CLUMBRSL 31D (SP) Add f t d t block 
: : ress of remote node system bloc 
28 AE 18 AB 06 8 MOVC3 PCL URBXSS SYSTEMID_R, - ; Store remote system id ’ 
PORBXSB STeTERTD RSP) 
30 AE 4446 10 28 MOVC3 M#CLUMBX$S NODENAME_R, - ; Store remote system name 
SO THBNeT NODENAgE” RCSP) 
40 AE 00000000'GF 7D 80$: MOVa G*EXESGQ_SYSTIME, = ; Store current time 
CLUMBX$Q-TIME (SPS 
53 Q6AE 3C MOVZWL CLUMBXS$W_LENGTH(SP),R3 ; Message size 
9E MOVAB 4 ; Message addre 


4 6€ 3 ss 
55 Q0000000'GF 9E MOVAB G*SYS$GL_OPRMBX RS 3; OPCOM mailbox UCB address 
s message length 
S message address 
s mailbox UCB address 


R3 i 
R4 i 


00000090" ¢f 1 JSB CLE EESUATRAILOOX ; Send message to OPCOM 
03 50 € BLBS RO,90$ 3: Branch on success 
obs . a: BISL #FLG_M_ERROR,R7 ; Set OPCOM message error flag 
SE 00000068 BF C 90$: ADDL2  #<CLOMBX$K_LENGTH+3>8°C3,SP ; Deallocate mailbox message buffer 
02 a8 S57 9 100$: BITB R7 ,MB_B_BRD(RB) 3; Check for OPAO broadcast 
4F 1 BEQL 126$ ; Branch if no OPAO broadcast 
51 OSA oA MOVZBL MB_T_MSG(R8),R1 * 8 get length of message 
1 co ADDL #PREFIX_S1Z+SBSS_NODENAME +2+ JAI d prefix, space+CR and 
1 3. «OCA BICL #3,R1 3; round to even number of longwords 
6 ; ) MOVL SP,.R6 ; Address to restore SP 
E § suBL¢ ; Allocate message construction buffer 
6E O000'CF OC VCS  #PREFIX_SIZ.W*PREFIX, - ; Copy prefix into message buffer 
3 OS A 3 MOVZBL » BU MSG(R8) ,R1 ; Initial message text size 
63 Ag MOVCS R1TMB_T_MSG+1(R8).(R3) : Copy message text to stack 
TSTL 9 ; Was CSB address specified? 


: Branch if no CSB 

3; Store a peace 

3; System Block address 

; Address of counted node name 
3; Length of node name 


SOOOOOOO OOOO OOO 0900 09 09 09 09 09 09 09 09 SI NIN IN NNN PAA AAA AAO NTT = 
MEW 9 ODN NEW OOD NA NEW SO OD NAN E WIN 9 OD NAME WIP 0 ODN UT" 00 


i 
i 


5 . 
5 te 
54 


voun600 


i 


63 | 
51 
55 00000000'GF 


00000000 ' GF 
6 OD 

FE 8F =BA 

05 


=] 
tad 


= 


a ad ad ed od IO 
at od td dt IE BIOOOON NHS 


tt I IOOOO 


OWONAULS WH 0 OONO 


— 
~ 
So 
bod 


Rout nes Yvon en “ECRERSIBBE 80:88:42 


MOVCS R4,(R5),(R3) 
#ch, (R354 
MOVAB (SPS.R 
R2,R3,R1 
MOVAL  G*OPA$UCRO,RS 
message length 
message address 
OPAO UCB address 


JSB G* IOCSBROADCAST 
MOVL 


CLUMESSAG.MAR; 1 


FILL in node name 
Insert ong count final carriage return 


9 ength 
dress of OPAO UCB 


; Broadcest it 
allocate message text buffer 


R6,SP 3 ge 
oven #*M<R1,R2,R3,R4,R5,R6,R7,R8B,RI> ; Restore registers 


04-600 


00000018 
QO7E 8F 

2f 18 3 
5 6€ 43 

oo PP 
56 = 68 AS 3 

63 18 A6 06 2 
63 44 A6 10 28 
535 18 00 

54 =66E OSE 

55 Q0000000'GF 9€ 
Q00000000'GF 16 
Gove BF GA 
05 


cw 


ee ss a ts i ob a + 4 a tb a a es a a a tt Ore 


DUST ES BS BS AAA AIA DPIPIPOP IPPON DMPA MPIPINPIPINNPIPININIPININ «=—O® 


AOC M C8 MOD DAA SF FS SN LOOOCOCOCCOCOCOOOCOOOCOOCOOOOOOSoOO 35 


paw be fw aw we ww ww wheal aw lala lo lalololololololeololelolol ole al ol el elelol oleae ole o) 


n 


om 
NRO OONAM EWN 0 OO NAMU EWN O OOONAMN EW OWOONOUE UT Ue? 


“ 


PADMA BB BEE BE BWANA ANAC OPOPOPOPONIPINOPD 


B 
Message Routines 
end message to Job Contro 


JBCMSGSIZ= 
SEND_JBCMSG: : 
PUSHR 


-SEP- 
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Page 13 
. (4) 


SYSLOA.SRCJCLUMESSAG.MAR; 1 


-SBTTL SEND_JBCMSG = Send message to Job Controller 


ae 
FUNCTIONAL DESCRIPTION: 


This routine sends a message to the Job controller when a system 


is removed from the cluster. 


; INPUT PARAMETERS: 


R5 Address of CSB 


; OUTPUT PARAMETERS: 


None 


; SIDE EFFECTS: 


ALL registers (other than RO) are preserved. 


W*MCRI RZ ,R3,R4 RS ROD 
#<JBCH GS{2+$>e4c3;sP 


MOVAB R 
MOVW #MSG$_SMBDON, (R3)+ 
MOVL.  CSBSL~SB(R5),R6 
MOVC3 #SBSS~SYSTEMID, - 
SB$B_SYSTEMID(R6), (R3) 
MOVC3 #SB$S_NODENAME, - 
SBST RODENAME (RO) , (R3) 
OVL #JBCASGSIZ,R 
MOVAB (SP) 
MOVAB G*SYS$GL_JOBCTLMB,RS 
JSB GrEXESWRTMAILBOX 
ADDL2 #<JBCMSGS12+3>8°C3, SP 
POPR #°M<R1,R2,R30R4,R5 ROD 


2+SBS$S_SYSTEMID+SBS$S_NODENAME 


; Length of job contoller me 


Save registers 

Allocate message buffer 
Message buffer address 
Message type 

Address of System Block 
Copy system ID into message 


ey node name -- 

3 set by previous MOVC3 

Set size of message 

Set address of message 

Set addr. of Job controller's mailbox 
Write it to mailbox (ignore errors) 
Restore stack 

Restore all registers 

Return 


 , 
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Symbol table . aad 88:60:36 SYSLOA.SRCIJCLUMESSAG.MAR; 1 . (4) 
SSSXX = CR = 0D 
SSS$YY = CSBSL_CSID = 4 
ACCPT_MSG RG 08 CSBS$L_SB = 
ADDNODE _MSG A RG CSBSL_STATUS = 
BEL = 07 CSBSV-MEMBER z 
CL _CL ® x 03 CSB_MSG C RG 9 
CLUBSiL_FLAG = DEAD_ASG BA RG 
CLUBSL_LOCAL_CSB = EXESGQ_SYSTIME eeneeree = x 
CLUBSV_CLUSTER = EXESWRTMAILBOX rtereres 
CLUB$V—-QUOR z FAILIO_MSG 000091 RG : 
CLUMBX$B_DS_VERSION = FAILOVER MSG 56 RG 
CLUMBX$B_FLAG = FLG_M_ALQAYS = 0 
CLUMBX$38_SYSTEMID_L = FLG_M_ERROR 2 1 
CLUMBX$B_SYSTEMID-R z FLG_M_MEMBER = 8 $ 
CLUMBXSK_DS_VERSION = FLG_M_NONMEMBER = 00 
CLUMBX$K_LENGTH = FLG_M_NOQUORUM = 00000 
CLUMBX$K_ST_ABORT = FLG_M_QUORUM = S008 4 
CLUMBX$K_ST_ADD s FLG_V_ERROR = 00009004 
CLUMBX$K_ST_CNX = FLG_V_NONMEMBER = a4 
CLUMBXSK_ST_ COMPLETE = 0 FLG_V_NOQUORUM = 00000003 
CLUMBXS$K_ST_DISKINVDAT = 8 FLG_V_QUORUM = 60000002 
CLUMBX$K_ST_DISKRDERR z FORTLOS_MSG tts RG 02 
CLUMBX$K_ST_DISKTIMEOUT = GAINQUORUM_MSG 0600339 RG 0 
CLUMBXSK_ST_DISKWRERR = IOCSBROADCAST aeeeeree =X 0 
CLUMBXS$K_ST_DROPNODE s IPL$_SCS = 60000008 
CLUMBX$K_ST_FORNCLUS = IPL$_SYNCH = ata 
CLUMBXSK~ST_FORNDISK 2 IPL$-TIMER = ity 
CLUMBXSK~ST-GAINDISK = JBCMSGS1Z = 00000018 
CLUMBX$K_ST_INIADD = JOIN_MSG QOOO1IDE RG 02 
CLUMBX$K_ST_INIFORM = LF = 3008008 
CLUMBX$K-ST_INIRECNF IG = LOSEQUORUM_MSG 0000315 RG 02 
CLUMBX$K_ST~ INQUORUM = _B_BRD = 300800 ¢ 
CLUMBX$K_ST_LOSTCNX = MB-B_CLS = 0000000 
CLUMBXS$K-ST-LOSTDISK = MB-B_LCL = 00000004 
CLUMBX$K_ST_ z “T-MSG = 00000005 
CLUMBXSK_ST_NEWSYS = W_ CODE = 000000 2 
CLUMBXSK~ST— 2 MERMREQ MSG 00 > RG 02 
CLUMBX$K_ ST = 0 MSG$_CCUMBX = 38 059 
CLUMBX$K-ST_RECNX = MSG$"SMBDON = 0009 
CLUMBXS$K_ST-TIMCNX = OPASOCBO aeeeeeee§ =X = 03 
CLUMBXS$L_CSTD_L z PREFIX 90 000 R 02 
CLUMBXS$L_CSID-R = PREFIX SIZ = oc 
CLUMBXS$M_BRDCST = 0 QDCON_ASG 0 1 RG 

X$O- TIME = 00 QDD1 STON 8 RG 
CLUMBX$S~NODENAME _L = 00 QDFORCLUS MSG 438 RG 

X$S_NODENAME_R = 00 QDINVDAT_ASG 000410 RG 
CLUMBX$S_SYSTEMIO_L = 00 QDRDERROR_MSG $ 384 RG 
CLUMBXSS~SYSTEMID_R z IMOUT 46D RG 
CLUMBX$T~NODENAME_L = QDWRERROR_MSG D3 RG 
CLUMBX$T-NODENAME_R 2 QDWRLERROR_MSG Fe RG 
CLUMBX$W"LENGTH = QUORUM_ 9E RG 
CLUMBX$SW_MSGTYPE = RCVSTS-MSG BF RG 
CLUMBX$W~ SUBT = REACCPT_MSG 43 RG 
CNCT_MSG RECNCT 49 RG 
CNXSTONF 1G_CHANGE RECONFIG_MSG 88 RG 
CNXERROR_MSG REQJOIN 1 9 RG 
COMPLE TE_MSG SB$B_SYSTEMID = 0000001 


D 
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Symbol table eet Pi 0:53:84 SYSLOA.S Red CLUMESSAG.MAR; 1 - (4) 
SBSS_NODENAME = 1 

SBSS_SYSTEMID = 9 

SBST"NODENAME = 

SEND- JBCMSG ‘ RG 

ert S_MSG - 

SYSSGL_JOBCTLMB Seseeeees 

SY Se. OPREBK posesees aa 
UNLOCK Ree $6000200 Re 


tonne cnn ere newer enh 


; Psect synopsis ! 


weet eae aneaswnnnd 


PSECT name Allocation PSECT No. Attributes 
» Ss « 0000000 < -> 0O ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000 ( ) 1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$060 000004 ( 1177.) ¢ ( $°; NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
$$$100 00000156 ( 342.) 03 ¢ -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
Se err -+ 
! ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 


Initialization 09:00:0 04 00: = :00. 5 


9 
ae processing 4 : 3 ?: 
Symbol tabl t 0:00:00. 
icy hee et ; 0: 8:1: 


Syabot table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 55 


The working set Limit was 1500 pages. 

56017 bytes_(110 pages) of virtual memory were used to pufter the intermediate code. 

{here were 30 pages of symbol table space allocated to hold 470 non-local and 12 local symbols. 
source lines were read in Pass 1, producing 19 select records in Pass 2. 

16 pages of virtual memory were used to define 14 macros. 


SSsssssse 
oc 
oc 
oc 
*< 
o 
a 


Sooooc]Keoa 


Brees eaon et eee ew ese ome seco ey 


Seaman ene estan een emo em eee 


Macro Library name Macros defined 
SS32$DUA :CSYSLOA. 08 /2CL Us TER. -MLB;1 1 
SSDUA28: (SY Siesta 4 
5$DUA28 : (SYSLI STARLET. Pale; 52 y 

TOTALS tet Libeaete 10 


492 GETS were required to define 10 macros. 
There were no errors, warnings or information messages. 
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